00100	BEGIN
00200	
00300	EXPR RAISE ();				% RAISE THE AFFECT VARIABLES PURELY AT RANDOM %
00400		BEGIN
00500		FEAR      ← FEAR      + 1;	% SHOULD BE FEAR      + RANDOM() %
00600		ANGER     ← ANGER     + 1;	% SHOULD BE ANGER     + RANDOM() %
00700		MISTRUST  ← MISTRUST  + 1;	% SHOULD BE MISTRUST  + RANDOM() %
00800		MISTRUST0 ← MISTRUST0 + 1;	% SHOULD BE MISTRUST0 + RANDOM() %
00900		FJUMP ← AJUMP ← NIL;
01000		END;
01100	
01200	
01300	EXPR FLAREFER (INP);			% DON'T CHECK FOR FLARE CONCEPTS %
01400		NIL;
01500	
01600	END.